Akan membuat master barang 
Di master barang tingal copy paste 
Cara nya klik kanan diproject kemudian add lalu windows form 


A 09./PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle Tools View Help 


TAMBAH EDIT HAPUS 


01:19 35:20 


UU kam) am Fs MP i| 
Kemudian buat 

Master barang lalu add 

Lalu untuek text kasih masterbarang 


A 09,[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 
Media Playback Audio Video Subtitle Tools View Help 


82 MASTER BARANG 


master barang System Windows.Forms.Form 
CHEN A 


ocked 


01:45 35:20 


Ih nm Com SISI . Gem 
Untuk ini di copy saja 


Å 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player — x 
Media Playback Audio Video Subtitle Tools View Help 


87 MASTER BARANG 


EDIT HAPUS 


vb 
ster. barang.vb 
v8 Modulel.vb 


ow output from: 


01:57 35:20 


UU kam) om ec o 1 
Disini kita akan menambah kode barang 

Tingal edit saja 

Semua 

Harga beli 

Kemudian harga jual 

Kemudian satuan 

Name juga ganti 


A 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle Tools View Help 


HAPUS 


KODE BARANG 9 
NAMA BARANG 


HARGA BEL 


D (DataBindi 


Wel ``" Sekedar 


sReturn False 


False 


Default 
False 
Top, Left 


Soun (Collection) 


output from: 


CharacterCasing 


03:56 35:20 


noke») dm FS MP | 
Disini buat tabel baru 


A 09,[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player == K 
Media Playback Audio Video Subtitle Tools View Help 


oslo e e Structure SQL \ Search Query =} Export Import Operations Privileges Routines © Events Triggers Y More 
Recent Favorite: 
Fitters 
New 
5 Ne k sed 
belajar vb 
| 3 New Table + Action Rows Ai Type Collation Size Overhead 
| we tbl admin tbl admin E jt Struct R Search ik t S Empty @ Drop oL fBmb4 a 
+ formation schema 1 table Sum 11 InnoDB utf8mb4 general ci 16.0 Kis os 
++ 9 mysql 
qi Check a ith selecte v 
+- 3 performance schema 
+ 4 phpmyadmin - 7 
a Print ga Vata e 
+ test 
B Create table 
Name Numt s 


Go 


04:37 —— 


II ka mm 0704 


Buat seperti ini field nya 


Å 09./PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle Tools View Help 


8 Browse Je Structure SOL Search Hé inset =} Export = Import Privileges Operations ® Tracking Triggers 
6 Nev kodebarang — PRIMAR v 
belajar vb A AR v 10 done v v D 
A New 
e tbl admin namabarang 
+ information schema å ze Loser x kr = = 
+ mysql 
+ performance_schema 
+- ; phpmyadmin N y None s kaé X kad 
+ test 
hargajual - 
Structure 4 
Table comments: Collation: Storage Engine: © 
PARTITION definition: @ 
Preview SQL | Save 
06:17 SN 35:20 
WE) ra fi (Sls mp” | 


Untuk databse sudah buat 
Tabel barang nya 
Kemudian balik 

Lalu copy paste saja ini 


09,[PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player — x 
Media Playback Audio Video Subtitle Tools View Help 


I kampa Pit SISIA ge gel 
Lalu paste ke barang 
09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


06:54 GR 35:20 
UU ke») pm Fisik MP” || 


Disini harus di perbaiki lagi 

Edit dari atas 

Select form tbl barang whre kode barang dan sterusnya 
Tapi bagusnya buat kosongi dahulu 

Hapus dahulu 


A 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


master_barang.vb 
ve M 


Show output from: 


07:58 35:20 


Copy yg ini dahulu 


A 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player om x 


Media Playback Audio Video Subtitle Tools View Help 


Imports System. Data.Odbc 


T) Forml.vb 
FE) master barar 


ve Modulel.vb 


put from: 


08:08 
[|] «ap» StH SSM 


Dimaster admin 
Kemudian copy yg coding buton tambah 


A 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


master_barang.vb 
va Modulel.vb 


Eiselt txtnamsadmin.Text = "= Then 
MsgBox("Nama Admin T: 
txtnamaadmin.Focus() 

Exit Sub 

(self txtkatasandi Text 
MsgBox( “Kota 
txtkatasandi.Focus() 

Exit Sub 

"nu" ComboBoxd.Text = 
MsgBox("Level Tidak Boleh g", vbExclamation) 
ComboBox1.Focus () 

Exit Sub 

Else 
bukadb() 

Dim SDØAN As String 


08:35 35:20 
IN kjøl» Cal (SS 


Lalu paste yg tambah barang 
Klik buton brang 


A 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle 


Tools View Help 


E master barang.vb 
ven 


System 


Represents text a 16 code units.T se the NET Framework source code for this type, see the Reference Sou: 


+ 


w output from: 


08:49 
|] Ke (Eth 


SX 


Kemudain ini enter 


A 09.[PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


ution ‘penjualar 
©) penjualan 
Å My Project 


References 


T) master_barang.vb 
vw Mod 


how output from: 


08:57 35:20 
Ho ka mpu at a 

Lalu sub nya di copy juga 

å 09.[PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


ution 'penjualar 
©) penjualan 
S35 nomorotosstis() Å My Project 
bukadb() References 
Ole urutankode As String Ap : 
Dim hitung As Long > E Form 
cmd = New OdbcCommand("Select * fr c n in (select max(kodeadmin) from tb 
rå = cmd. ExecuteReader 
rd.Read() 
If Not rd.HasRows Then 
urutankode = "ADM" + "001" 
Else 
hitung = Microsoft. VisualBasic.Right(rd.GetString(@), 3) + 1 
urutankode = "ADM" + Microsoft.VisualBasic.Right("09" & hitung, 3) 
tng If 
txtkodeadmin.Text = urutankode 
Enc Sub 
Sub TIDAKSLAPISI() 
txtkodeadmin. Enabled = False 
tuctnamaadmin. Enabled = false 
txtkatasandi.Enabled = false 
ComboBox1.Enabled = False 
End Sub 
‘Sub siapisi() 
txtkodeadmin. Enabled = 
txtnamaadmin. Enabled 


master barang. vb 
Modulel.vb 


w output from: 


09:13 35:20 


UU kul») putt Sis ll 


A 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player x 


Media Playback Audio Video Subtitle Tools View Help 


aa.rasanas, toi BERN y 

DataGridView! DataSource = ds.Tables(*tbl 
Eng Sub 

~ SAB aturdgvi) bk ution "penjualan" (1 pr 
DataGridView! .Columns(@).Width = 4 [E penjualan 
DataGridView! Colums(1).Width = Å My Project 
DataGridView! .Coluans(2).Width = 
DataGridView! .Columns(3).Width = 
DataGridView! .Columns(@).HeaderText = "KODE A 
DataGridView! .Columns(1).HeaderText = “N 
DataGridView! .Columns(2).HeaderText = “KATA master_barang.vb 
DataGridView! .Columns(3).HeaderText = "LEVEL" va Mod 
DataGridView! .ColumnteadersDefaultCellStyle Alignment = OstaGridViewontentAlignment .MiddleCenter 
DataGridView! .ColumntieadersDefaultCellStyle.font = New Font ("Ar , 10, FontStyle.Bold) 
DataGridView! .DefaultCellStyle.Font s jew Font (*T: New Roman”, 9) 

Style.BackColor = Color .SkyBlue 


va Reference 


output from: 


09:19 35:20 
D | kap» 314 5 


Paste disini 


A 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle 


Tools View Help 


n penjualan 
© penjualan 
Å My Project 
om References 
App. 
Formi.vb 
master barang.vb 
Module t.vb 


Ke Ditt ES 


Tingal edit yg ini WW 


A 09.(PART9) CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


ution ‘penjualar 
penjualan 


A My Project 


va Referer 


master_barang.vb 
vw Mod 


txtkodeadmin. Enable 
trtnamaadmin. Enabled 
txtkatasand 


utput from: 


09:34 
|] ke» DI 


& 09./PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player Ss 


Media Playback Audio Video Subtitle Tools View Help 


txtkodebar ang 
txtnamabarang E 


txtha 


master_barang.vb 
Module! ab 


11:25 35:20 


UU ke») am Fs ou | 
Ini hapuskan saja 


A 09.(PART9) CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


_barang.vb 


11:35 
ki Ka Eit SISI 


Ubah da nya 

Tabel nya juga 

Header gridnya 

Kemudian columnya ditambah 


A 09,[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


_barang.vb 
va Modulel.vb 


13:07 35:20 


HE) engm Catt) SSM | 
Ubah juga 
Tambah juga untuk satuan 


A 09.(PART9) CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


T) master barang vb 
va Modulel.vb 


ow output from: 


15:14 
Di) ep» Com eis 


Tabel ganti 


Å 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


CS master barang.vb 


va Modulel.vb 


15:29 
I rap») SSH) SISA 


jika lihat eror jika belum diganti 
Select juga belum diganti 
Urutan kode juganti BRG 


A 09.(PART9) CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


ution 'penjualar 
4 [E penjualan 
Å My Project 


va Referer 


master barang vb 
vw Mod 


Warning: d Build + IntelliSense 


Project 


17:29 35:20 
|] Ke 03104 Sis 


Kemudian lihat nya 
Kemproject lalu properties 


Å 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle 


Tools View Help 


EI Solution 'penjualar 
a penjuala 
Å My Project 


va Referer 


S For 
FE) master barang.vb 
V8 Module 


art 
ort Template 
Manage NuGet Package 


t 


oroperties 


Build + IntelliSense 


Project 


17:37 
p kami Coit = 


SX 


Pilih yg master barang 


A 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


on ‘penjualan 


penjualan 


penjualan penjualan E My Project 


Assembly name Root namespace 


Target framework Application type sa References 
NET Framework 4.6 Windows Forms Application 


E Auto-generate binding redirects master barang.vb 


Module! 
Startup form: Icon: 


Formi v (Default Icon) 


[MASTER ADMIN 
Form! N == 
FA Enable application framework 


Windows application framework properties 


FA Enable XP visual styles 
D Make single instance application 
[2 Save My Settings on Shutdown 


Authentication mode 


Windows 


Shutdown mode 


When startup form closes 


Splash screen 


Entire Sc ning: 13M 5 Build + IntelliSen 


Project 


17:51 
|] ke» 304 SIS 


Kemudian kita run 
Disini sudah jalan 


Å 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle Tools View Help 


E Sah 


Diagnostics session: 7 seconds 


| gi MASTER BARANG 


4 Process Memory (MB) 
vind SIMPAN EDIT 


KODE BARANG | BRGOOT 4 CPU (% of all processors) 


NAMA BARANG x 

HARGA BEL 

HARGA JUAL 

SATUAN Summary Memory Usage 
Events 


- Show Events (0 


Memory Usage 
] Take Snap 
CPU Usage 


18:08 
|] Ke att 


Kemudian 
Copy paste juga 
Edit nya di copy 


A 09.(PART9) CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player æ x 


Media Playback Audio Video Subtitle Tools View Help 


If btedit.Text = " 
btedit.Text = 
bthapus.Text = 
sispisi() 
txtkodeadmin. Enabled = False 
Elisel? tutkodesdmin.Text = 
MsgBox("Pilih data yang akan di 
Exit Sub 
Elselt txtnamsodnin.Text = 
MsgBox("Name adain m 
tetnamaadain.Focus() 
Exit Sub 
Fiself txtkatasandi.Text = 
MsgBox("Kata sandi m 
txtkatasandi.Focus() 
Exit Sub 
Eiself ComboBoxd Text = == Then 
MsgBox( “Level 
Combotoxl .Focus() 
Exit Sul 


utput from: Debug 


18:22 35:20 
DP) mj») 22304 ISIS 


& 09./PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player ya 


Media Playback Audio Video Subtitle Tools View Help 


txtkodeodain. Enabled = False 
FISET txtkodeadmin.Text = =" "en 
MsgBox("Pilih data yang akan diedit") 


MsgBox( "Nama 
txtnamaadmin.Focus() 
Exit Sud 

EEN tatkatasandi.Text = 
MsgBox(*Kata sandi mas 


MsgBon("Level Admin sa 
Combooxl .Focus() 
Exit Sub 


bukadb() 

Dim edit As String 

edit - "update tbl admin set ni ine" ` i= "" & tetkatasandi.Text & **, level» "" & ComboBoxl.T 
cad = New OubcCommand(edit, kon) 

cmd. ExecuteNonQuery() 


data berhasil”) 


TIDAKSIAPISI () 


from: Debug 


18:25 35:20 
IL ep» Cilik = 


Lalu doublik clik di form barang 
Lalu paste 


A 09.[PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


an’ (1 project! 


utput from: Debug 


|] Ke 2314 (5 


Lalu jgn lupa satuan 


|| 


A 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player ne x 


Media Playback Audio Video Subtitle Tools View Help 


1 project! 


ER 


20:17 35:20 
If ka mm 


A 09.(PART9) CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


Modu 


E3 
a 
z 


A 09.(PART9) CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player eg x 


Media Playback Audio Video Subtitle Tools View Help 


utput from: Debug 


22:15 35:20 
HH ep» Blitt = 


A, 09./PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle 


Tools View Help 


Dim pesan As String 
pesan = MsgBox("Akan hap gan kode admin " & txtkodeadmin.Text & "=, vbYesNo + vbQuestion) 


lete from tbl admin where koc ine ** & txtkodeadmin.Text & =" 
cmd = New OcdcCommand(hapus , 
cmd, ExecuteNonQuery() 
MsgBox("Data berhasil dina 
TIDAKSIAPISI() 


utput from: Debug 


enjualan.e 


njualar 


Ke TILL 


A 09.(PART9) CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player eg x 


Media Playback Audio Video Subtitle Tools View Help 


23:14 
TE) ke» 3104 394 


Kemudian untuk data gridview nya 
Jgn lupa ubah menjadi mouseklik 


A 09.[PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


23:30 35:20 


Kita copy paste 


A 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player 
Audio Subtitle 


Media Playback Video Tools View Help 


Data ad _CeliMouse sender z 
txtkodeadmin. Text = DataGridView! .Rows(e.Rowlndex) .Cel1s(@) 
txtnamaadmin.Text = DataGridView .Rows(e.RowIndex).Ce11s(1). 
txtkatasandi Text = DataGridView! .Rows(e.RowIndex).Ce11s (2). 
ComboBox1.Text = DataGridView! .Rows(e.RowIndex).Ce11s(3) 


from: Debug 


23:36 35:20 


|] ee mp Eat 


Lalu edit 
Satuan juga 


A 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player 
Subtitle 


Media Playback Audio Video Tools View Help 


njualan' (1 project 


output from: Debug 


24:40 
|] Ke att 


Coba dirun 
Simpan 


A 09,[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 


Media Playback Audio Video Subtitle Tools View Help 


m| penjualan j FF : B a a D 
Lick(s R Diagnostics session: 33 seconds 
4 Events 
m 
KODE BARANG |B 4 Process Memory (MB) 
NAMA BARANG [KOMPUTER 
HARGA BELI 
HARGA JUN, 4 CPU (% of all processors) 
10 


Summary E Memory Usage 
Events 
rents (0 of 0) 


Memory Usage 


Build + Inte! 


25:17 
|] ke» DI 


Ada yg salah 

Dilihat kembali 

Lihat jika kesalahan 

Di master load belum copy juga 


A, 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle 


Tools View Help 


Edt View 


penjualan miv master barang vè Formi.vb [Design] 


FI penjualan 3 master barang 


27:35 
|] Ke DU SIS 


Salahnya disni 


35:20 


09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


a 
Stack Frame: penjualan. master barang tampildgv 
master barang,vb (Design) v eT 
penjualan : 3 master barang tampådgv E 88% 


Diagnostics session: 0 seconds (3 ms selected) 
4 Events 

nm 
4 Process Memory (MB! 


4 CPU (% of all processors) 


Events 


Entire Solution 


28:04 


noke») fu) Fs m t) 
Di run lagi maka sudah jalan 
09.[PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


| penjualan ai MASTER BARANG y cah 


Diagnostics session: I seconds 


HAPUS 


KODE BARANG 4 Process Memory (MB! 
NAMA BARANG - 
HARGA BELI 


HARGA JUAL si 
4 CPU ( of all processors 
SATUAN 


KODE NAMA 


BARANG BARANG WARDA JUN: 


oe Events 


- Show Event 


Memory Usage 


Maka sudah bisa 


A 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


BATAL 


NAMA HARGA 
BARANG BELI HARGA UAL 


KOMPUTER | 4000004 z 


pe catu Sep mg” | 
Sudah bisa edit hapus tambah 

Kasih di master barang karna harganya integer kasih validasi 

Supaya hanya input angka 

Doublik txtharga ubah menjadi keypress 


A 09./PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player - x 
Media Playback Audio Video Subtitle Tools View Help 


29:43 


p Kap» Cl SI = 
If not(()) e.keychar lebih besar >="0" and e.ketchar lebihkecil <="9" ) or e.keychar 
=vbback) 

Maka e.hadle = true 

Tampilkan pesan hanya boleh angka 


Lalu dim keascli as Short = Asc(e.KeyChar) 
If e.keychar pakai like 0-9 
Orelse key=ascli = key.back maka 


Keyascli = 0 
End 
e.handle = cBoll(keyasli) 
A 09,[PART9] CODING_KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


di coba run hanya boleh angka 
Diharga jual juga 

Copy paste saja 

Bua keypress 


A 09.[PART9] CODING KODING SIMPAN, EDIT, HAPUS PADA FORM MASTER BARANG VB.NET.mp4 - VLC media player = x 


Media Playback Audio Video Subtitle Tools View Help 


Lalu save start 


Itu saja tutorial master barang caranya sama dgn admin 


Master barang 
Imports System.Data.Odbc 
Public Class master barang 


Sub TIDAKSIAPDIISI() 
txtkodebarang.Enabled - False 
txtnamabarang.Enabled - False 
txthargajual.Enabled - False 
txthargabeli.Enabled - False 
ComboBox1.Enabled - False 

End Sub 

Sub SIAPISI() 
txtkodebarang.Enabled - True 
txtnamabarang.Enabled - True 
txthargajual.Enabled - True 
txthargabeli.Enabled - True 
ComboBox1.Enabled - True 

End Sub 


Sub KOSONGKANTEXT () 
txtkodebarang.Text SI 
txtnamabarang. Text 
txthargajual.Text = "" 
txthargabeli.Text = "" 
ComboBox1.Text = "" 

End Sub 

Sub KONDISIAWAL () 
btntambah.Text = "TAMBAH" 
btnedit.Text = "EDIT" 
btnhapus.Text = "HAPUS" 


End Sub 

Sub ISICOMBOBOX1( ) 
ComboBox1.Items.Add ("PCS") 
ComboBox1. Items .Add ("PACK") 

End Sub 


Sub TAMPILGDV() 
bukaDB() 
da = New OdbcDataAdapter ("SELECT 

kodebarang ,namabarang, hargabeli,hargajual,satuan from tbl barang", conn) 

ds = New DataSet 
da.Fill(ds, “tbl barang") 
DataGridViewl.DataSource = ds.Tables("tbl barang") 

End Sub 


Sub URUTANOTOMATIS() 
bukaDB() 
Dim urutankode As String 
Dim hitung As String 
cmd = New OdbcCommand( "SELECT * FROM tbl barang where kodebarang 
in(select max(kodebarang) from tbl barang)", conn) 
rd = cmd.ExecuteReader 
rd.Read() 
If Not rd.HasRows Then 
urutankode = "BRG" + "001" 
Else 
hitung = Microsoft.VisualBasic.Right(rd.GetString(0), 3) + 1 
urutankode = "BRG" + Microsoft.VisualBasic.Right("00" & hitung, 3) 
End If 
txtkodebarang.Text = urutankode 
txtkodebarang.Enabled = False 
End Sub 
Sub ATURGDV() 


DataGridViewl.Columns(0).Width = 150 
DataGridViewl.Columns(1).Width = 150 
DataGridViewl.Columns(2) .width = 130 
DataGridViewl.Columns(3).Width = 130 
DataGridViewl.Columns (4).Width = 100 


DataGridViewl.Columns (0) .HeaderText 

DataGridViewl.Columns (1) .HeaderText 

DataGridViewl.Columns (2) .HeaderText "HARGA BELI" 

DataGridViewl.Columns (3) .HeaderText "HARGA JUAL" 

DataGridViewl.Columns(4) .HeaderText = "SATUAN" 

DataGridViewl.ColumnHeadersDefaultCellStyle.Alignment = 
DataGridViewContentALlignment .MiddleCenter 

DataGridViewl.ColumnHeadersDefaultCellStyle.Font = New Font( "Quicksand", 
10, FontStyle.Bold) 

DataGridView1.DefaultCellStyle.Font = New Font("Quicksand", 9) 

DataGridViewl.AlternatingRowsDefaultCellStyle.BackColor = Color.OrangeRed 


"KODE BARANG" 
"NAMA BARANG" 


End Sub 
Private Sub btntambah Click(sender As Object, e As EventArgs) Handles 
btntambah. Click 
Try 
If btntambah.Text = "TAMBAH" Then 
btntambah.Text = "SIMPAN" 
btnhapus.Text = "BATAL" 
SIAPISI () 


URUTANOTOMATIS ( ) 
txtnamabarang.Focus() 
ElseIf txtkodebarang.Text = "" Then 
MsgBox("Kode Barang tidak boleh kosong", vbExclamation) 
txtkodebarang.Focus() 
ElseIf txtnamabarang.Text = "" Then 
MsgBox("Nama Barang tidak boleh kosong", vbExclamation) 
txtnamabarang.Focus() 
ElseIf txthargajual.Text = "" Then 
MsgBox("Harga Jual tidak boleh kosong", vbExclamation) 
txthargajual.Focus () 
ElseIf txthargabeli.Text = "" Then 
MsgBox("Harga Beli tidak boleh kosong", vbExclamation) 
txthargabeli.Focus () 
ElseIf ComboBox1.Text = "" Then 
MsgBox("Satuan tidak boleh kosong", vbExclamation) 
ComboBox1.Focus() 
Else 
bukaDB() 
Dim simpan As String 
simpan = "INSERT INTO tbl barang values('" & txtkodebarang.Text & 
"rot" & txtnamabarang.Text & "','" & txthargabeli.Text & "','" & 
txthargajual.Text & "','" & ComboBox1.Text & "')" 
cmd = New OdbcCommand(simpan, conn) 
cmd.ExecuteNonQuery () 
MsgBox("Data Barang berhasil ditambah") 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI() 
KONDISIAWAL () 
TAMPILGDV() 


End If 
Catch ex As Exception 
MsgBox ("Data Barang gagal ditambah") 
End Try 
End Sub 


Private Sub master barang Load(sender As Object, e As EventArgs) Handles 
MyBase.Load 
TIDAKSIAPDIISI() 
ISICOMBOBOX1() 
TAMPILGDV ( ) 
ATURGDV() 
End Sub 


Private Sub DataGridViewl CellContentClick(sender As Object, e As 
DataGridViewCellEventArgs) Handles DataGridViewl.CellContentClick 


End Sub 


Private Sub DataGridViewl CellMouseClick(sender As Object, e As 
DataGridViewCellMouseEventArgs) Handles DataGridViewl.CellMouseClick 

txtkodebarang.Text = DataGridViewl.Rows(e.RowIndex) .Cells(0).Value 
txtnamabarang.Text = DataGridViewl.Rows(e.RowIndex) .Cells(1).Value 
txthargabeli.Text = DataGridViewl.Rows(e.RowIndex) .Cells(2).Value 
txthargajual.Text = DataGridViewl.Rows(e.RowIndex) .Cells(3).Value 
ComboBox1.Text = DataGridViewl.Rows (e.RowIndex).Cells (4) .Value 

End Sub 


Private Sub Buttonl Click(sender As Object, e As EventArgs) Handles 
Buttonl.Click 
bukaDB() 
End Sub 


Private Sub btnedit Click(sender As Object, e As EventArgs) Handles 
btnedit.Click 
If btnedit.Text = "EDIT" Then 
btnedit.Text = "SIMPAN" 
btnhapus.Text = "BATAL" 


SIAPISI() 
txtkodebarang.Enabled = False 

ElseIf txtkodebarang.Text = "" Then 
MsgBox("Pilih data yang mau di edit") 
Exit Sub 

ElseIf txtnamabarang.Text = "" Then 


MsgBox("Nama Barang tidak boleh kosong") 
txtnamabarang.Focus() 
Exit Sub 
ElseIf txthargabeli.Text = "" Then 
MsgBox("Harga Beli tidak boleh kosong") 
txthargabeli.Focus() 
Exit Sub 
ElseIf txthargajual.Text = "" Then 
MsgBox("Harga Jual tidak boleh kosong") 
txthargajual.Focus() 
Exit Sub 
ElseIf ComboBox1.Text = "" Then 
MsgBox("Satuan tidak boleh kosong") 
ComboBox1. Focus () 
Exit Sub 
Else 
bukaDB() 
Dim edit As String 
edit = "UPDATE tbl barang set namabarang="" & txtnamabarang.Text & 
"' hargabeli="" & txthargabeli.Text & "',hargajual='" & txthargajual.Text & 
"' satuan='" & ComboBox1.Text & "' WHERE kodebarang='" & txtkodebarang.Text & "'" 
cmd = New OdbcCommand(edit, conn) 
cmd.ExecuteNonQuery () 
MsgBox("Data Barang berhasil diubah") 
TAMPILGDV ( ) 
KONDISIAWAL ( ) 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI () 
End If 
End Sub 


Private Sub btnhapus Click(sender As Object, e As EventArgs) Handles 
btnhapus.Click 

If btnhapus.Text = "BATAL" Then 
KOSONGKANTEXT ( ) 
TIDAKSIAPDIISI() 
KONDISIAWAL() 
Exit Sub 

End If 

Dim pesan As String 


pesan = MsgBox("Hapus data dengan Nama Barang " & txtnamabarang.Text & 
"", vbYesNo + vbQuestion) 
If pesan = vbYes Then 
Dim hapus As String 
hapus = "DELETE from tbl barang where kodebarang="" & 
txtkodebarang.Text & "'" 
cmd = New OdbcCommand(hapus, conn) 
cmd.ExecuteNonQuery () 
TIDAKSIAPDIISI() 
KOSONGKANTEXT () 
KONDISIAWAL() 
TAMPILGDV() 
Else 
KOSONGKANTEXT () 
TIDAKSIAPDIISI() 
KONDISIAWAL() 
End If 
End Sub 


Private Sub txthargabeli TextChanged(sender As Object, e As EventArgs) 
Handles txthargabeli.TextChanged 


End Sub 
Private Sub txthargabeli KeyPress(sender As Object, e As KeyPressEventArgs) 


Handles txthargabeli.KeyPress 
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) 


Then 

e.Handled = True 
MsgBox("Hanya boleh angka") 

End If 

Dim keyascii As Short = Asc(e.KeyChar) 

If (e.KeyChar Like "[0-9]" _ 
OrElse keyascii = Keys.Back) Then 
keyascii = 0 

End If 

e.Handled = CBool(keyascii) 

End Sub 


Private Sub txthargajual TextChanged(sender As Object, e As EventArgs) 
Handles txthargajual.TextChanged 


End Sub 


Private Sub txthargajual KeyPress(sender As Object, e As KeyPressEventArgs) 
Handles txthargajual.KeyPress 
If Not ((e.KeyChar >= "0" And e.KeyChar <= "9") Or e.KeyChar = vbBack) 
Then 
e.Handled = True 
MsgBox("Hanya boleh angka") 
End If 
Dim keyascii As Short = Asc(e.KeyChar) 
If (e.KeyChar Like "[0-9]" _ 
OrElse keyascii = Keys.Back) Then 
keyascii = 0 
End If 
e.Handled = CBool(keyascii) 
End Sub 


End Class 


